Programmes de Topographie
Pour visualiser les sources des programmes
vous devez télécharger le fichier de police ti dans
le dossier : C:\WINDOWS\FONTS\
Pour ne rien oublier voici le diagramme du programme
Programme A01TOPLU
EffEcr
Radian
Lbl 99
Menu(" TOPO PLUS ","Div surf Lim//",1,"Cercles ??",2,"Courbe de nivo",3,"Entre en terre",4,"Exentrement",5,"Corrections",6,"Quitter",7
Lbl 1
prgmDSLIPAR
Goto 99
Lbl 2
prgmPRCERCLE
Goto 99
Lbl 3
prgmTOPOCN
Goto 99
Lbl 4
prgmENTERRE
Goto 99
Lbl 5
prgmEXENTR
Goto 99
Lbl 6
prgmCORREC
Lbl 99
Lbl 7
Stop
Programme DSLIPAR
Radian
0 S
0G
0D
0B
0H
0U
0V
EffEcr
Disp "Div de surface"
Disp "limite paralelle"
Pause
EffEcr
Disp "Limite P-Q //"
Disp "Base A-B"
Pause
EffEcr
Lbl 1
Disp "surface de la"
Disp "Nouvele parcelle"
Input S
If S=0
Then:Goto 1
End
Lbl 2
EffEcr
Disp "Angle a gauche"
Input G
G*( /200)G
If G=0
Then:Goto 2
End
If G=(/2)
Then:G- ^( 9)G
End
Lbl 3
EffEcr
Disp "Angle a droite"
Input D
D*(/200)D
If D=0
Then:Goto 3
End
If D=(/2)
Then:D-^(9)D
End
Lbl 4
EffEcr
Disp "BASE A-B"
Input B
If B=0
Then:Goto 4
End
 (B -2*S*(1/tan(G)+1/tan(D))P
(2*S)/(B+P)H
H/sin(G)U
H/sin(D)V
EffEcr
Disp "Limite P-Q",P
Pause
EffEcr
Disp "Hauteur H",H
Pause
EffEcr
Disp "Cote gauche A-P",U
Pause
EffEcr
Disp "Cote droit B-Q",V
Pause
EffEcr
Return
Programme PRCERCLE
Lbl 15 Radian
EffEcr
Disp "Probl sur Cercle"
Disp "Quand Inconnues"
Disp "Taper 0 et enter"
Pause
EffEcr
Disp "Rayon du cercle"
Input R
EffEcr
Disp "Angle au centre "
Input O
O/2O
O*(/200)O
If (/2)=O
Then:(/2)-10^8O
End
If O=(/2)-10^8
Then
EffEcr
Disp "Tangentes paral"
Disp "LeLes"
Disp "Pas de contre"
Disp "Fleche"
Pause
End
If (R*O) 0
Then:Goto 70
End
EffEcr
Disp "Angle au sommet"
Disp "de tengantes"
Input A
A*(/200)A
A/2A
If O0
Then:(/200)-OA
End
If A0
Then:(/200)-AO
End
If (R*A)0
Then:Goto 70
End
EffEcr
Disp "Contre Fleche"
Input V
If V0 et O0
Then:(V*cos(O))/(1-cos(O))R
End
If V0 et R0
Then:Arccos(R/(R+V))O
End
If V0 et O0
Then:Goto 70
End
EffEcr
Disp "Corde"
Input T
T/2T
If R=0 et O0
Then:T/sin(O)R
End
If O=0 et R0
Then:Arcsin(T/R)O
End
If (R*O)0
Then:Goto 70
End
EffEcr
Disp "FLecHe"
Input W
If (T+W)=0
Then:Goto 1
End
If T0 et W0
Then:(W^2+T^2/4)/2*WR
If W0 et O0
Then:W/(1-cos(O))R
End
If W0 et O0
Then:Goto 70
End
If (T*W)=0
Then:Goto 1
End
(W^2+T^2)/2/WR
Arcsin(T/R)O
If (R*O)0
Then:Goto 70
End
If W*O0
Then:W/(1-COSO)R
End
Lbl 1
If (W*R)0
Then:Arcsin((R-W)/R)O
End
If (R*O)0
Then:Goto 70
End
EffEcr
Disp "Long tangente"
Input S
If (T*S)0
Then:(/2)-Arcsin(T/S)O
End
If (S*R)0
Then:Arctan(S/R)O
End
If (S*O)0
Then:S/tan(O)R
End
If (R*O)0
Then:Goto 70
End
EffEcr
Disp "Surface secteur"
Input X
If (X*O)0
Then:(X)/O)^0.5R
End
If (X*O)0
Then:Goto 70
End
If X0 et R0
Then:(X)/(R^2)O
End
If X0 et R0
Then:Goto 70
End
EffEcr
Disp "Developpement "
Input U
If (X*U)0
Then:R=2*X/U
End
If X0 et R0
Then:(X)/(R^2)O
End
If (X*U)0
Then:Goto 70
End
If R0 et U0
Then:100*(U/R)/O
O*(/200)O
Goto 70
End
If (U*O)0
Then:O*(200/)O
(U*100)/(O*)R
O*(/200)O
Goto 70
End
EffEcr
Disp "Surface Segment"
Input Y
If (Y*O)0
Then:((Y)/((O)-((/2)*sin(2*O))))^0.5R
End
If (O*Y)0
Then:Goto 70
End
If (X*Y)0
Then:X-YZ
End
If Z0
Then:Goto 15
End
EffEcr
Disp "Surface triangle"
Input Z
If (Z*O)0
Then:(Z/(cos(O)*sin(O))^0.5R
Goto 70
End
If (Y*O)=0
Then:EffEcr
Disp ""
Disp ""
Disp "Donnees"
Disp "Insuffisantes"
Pause
Goto 15
End
Lbl 70
R*tan(O)S
2*R*sin(O)T
R*(1-cos(O))W
S*sin(O)-WV
O*(200/)O
*R*O/100U
R^2**O/200X
2*OO
O*(/200)O
-OA
X-R^2*sin(O)/2Y
X-YZ
EffEcr
Disp "Rayon",R
Pause
O*(200/)M
Disp "Angle au centre",M
Pause
A*(200/)L
Disp "Angle au sommet"
Disp "des tangentes",L
Pause
Disp "Tangente",S
Pause
Disp "Corde",T
Pause
Disp "Fleche",W
Pause
Disp "Developpement",U
Pause
Disp "Bissectrice Ou"
Disp "contre Fleche",V
Pause
Disp "Surface Secteur",X
Pause
Disp "Surface Segment",Y
Pause
Disp "Surface Triangle",Z
Pause
Return
Programme TOPOCN
EffEcr Disp "Courbe de niveau"
Pause
Lbl 1
EffEcr
Disp "Z Premier point"
Disp "Pt inferieur"
Input I
EffEcr
Disp "Z Deuxieme point"
Disp "Pt supperieur"
Input S
EffEcr
Disp "Dist entre ces 2"
Disp "points"
Input D
EffEcr
Disp "altitude de la"
Disp "C.N. a tracer"
Input C
If S-I=0
Then:S+^(10)S
End
(D/(S-I))*(C-I)X
EffEcr
Disp "Dist courbe au"
Disp "point inferieur",X
Disp "cm"
Pause
Goto 1
Programme ENTERRE
EffEcr Disp "Entrees en terre"
Disp "Entrer abs(Pente)"
Pause
EffEcr
Disp "Z projet"
Input A
Disp "Z du terrain N"
Input B
EffEcr
Disp "Pente projet"
Input C
C/100C
Disp "Pente terrain N"
Input D
D/100D
If C-D=0
Then:C+^(10)C
End
abs(A-B)/abs(C+D)E
abs(A-B)/abs(C-D)F
EffEcr
Disp "D si p de sens =",F
Disp "cm"
Disp ""
Disp "D si p de sens ",E
Disp "cm"
Pause
Return
Programme EXENTR
EffEcr
Disp "Exentrements"
Disp "Liste de Variabl"
Pause
Lbl 1
EffEcr
Disp "S= Station"
Disp "R= Point proche"
Disp "RP= Distance R-P"
Disp "P= Point loin"
Pause
EffEcr
Disp "Dist exentrement"
Input R
Disp "Lecture de S-R"
Input I
Disp "Lecture de S-P"
Input H
Disp "Dist R-PT LOIN"
Input P
I*(/200)I
H*(/200)H
Arcsin(R*sin(H-I)/P)C
H+CH
I*(200/)I
H*(200/)H
C*(200/)C
EffEcr
If I+200<0
Then:I+400I
End
If I>400
Then:I-400I
End
If H>;400
Then:H-400H
End
If H<0
Then:H+400H
End
Disp "Lecture de R-S",I+200
Disp "Lecture de R-P",H
Pause
Goto 1
Programme CORRRC
EffEcr
Lbl 99
Menu(" CORRECTION ","Lambert",1,"Niveau 0",2,"Module echel",3,"Retour",4
Lbl 1
prgmCOEFLBT
Goto 99
Lbl 2
prgmCOEFN0
Goto 99
Lbl 3
prgmMODECH
Goto 99
Lbl 4
prgmA01TOPL
Programme COEFLBT
EffEcr
Disp "Coeficiant, pro"
Disp "jection Lambert"
Pause
EffEcr
Disp "X moy km"
Input X
Disp "Y moy km"
Input Y
EffEcr
Disp "X grille inf"
Input L
Disp "Y grille inf"
Input N
EffEcr
Disp "K Xinf Yinf"
Input A
Disp "K Xsup Yinf"
Input B
Disp "K Xinf Ysup"
Input C
Disp "K Xsup Ysup"
Input D
EffEcr
X-LE
Y-NF
A+0.01*(B-A)*EG
C+0.01*(D-C)*EH
G+0.1*(H-G)*FI
I*10K
Disp "K Lambert ppm"
Disp ""
Disp "",K
Pause
Return
Programme COEFN0
EffEcr
Disp "Coeficiant de"
Disp "niveau 0"
Pause
EffEcr
Disp "R ref=6370 Zmoy?"
Input M
(M/3670)*1000K
EffEcr
Disp "K0 en ppm",K
Pause
Return
Programme MODECH
EffEcr
Disp "Coef de mise a"
Disp "l'echelle"
Disp ""
Disp "Fonction de k"
Pause
EffEcr
Disp "Entrer k ppm"
Input K
1+K*^(6)M
EffEcr
Disp "Module D'echelle",M
Pause
Return
|